Voorbeeld van de eigenschappen ScrollBars en KeepScrollBarsVisible

In het volgende voorbeeld worden de eigenschappen ScrollBars en KeepScrollBarsVisible gebruikt om schuifbalken toe te voegen aan een pagina van een MultiPage en aan een Frame. De gebruiker kiest een keuzerondje dat, op zijn beurt, een waarde opgeeft voor KeepScrollBarsVisible.

Als u dit voorbeeld wilt gebruiken, kopieert u de voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een MultiPage met de naam MultiPage1.
  
  
• Een Frame met de naam Frame1.
  
  
• Vier besturingselementen OptionButton met de namen OptionButton1 tot en met OptionButton4.

Private Sub UserForm_Initialize()
    MultiPage1.Pages(0).ScrollBars = fmScrollBarsBoth
    MultiPage1.Pages(0).KeepScrollBarsVisible = fmScrollBarsNone
    
    Frame1.ScrollBars = fmScrollBarsBoth
    Frame1.KeepScrollBarsVisible = fmScrollBarsNone
    
    OptionButton1.Caption = "No scroll bars"
    OptionButton1.Value = True
    OptionButton2.Caption = "Horizontal scroll bars"
    OptionButton3.Caption = "Vertical scroll bars"
    OptionButton4.Caption = "Both scroll bars"
End Sub

Private Sub OptionButton1_Click()
    MultiPage1.Pages(0).KeepScrollBarsVisible = _
        fmScrollBarsNone
    Frame1.KeepScrollBarsVisible = fmScrollBarsNone
End Sub

Private Sub OptionButton2_Click()
    MultiPage1.Pages(0).KeepScrollBarsVisible = _
        fmScrollBarsHorizontal
    Frame1.KeepScrollBarsVisible = _
        fmScrollBarsHorizontal
End Sub

Private Sub OptionButton3_Click()
    MultiPage1.Pages(0).KeepScrollBarsVisible = _
        fmScrollBarsVertical
    Frame1.KeepScrollBarsVisible = _
        fmScrollBarsVertical
End Sub

Private Sub OptionButton4_Click()
    MultiPage1.Pages(0).KeepScrollBarsVisible = _
        fmScrollBarsBoth
    Frame1.KeepScrollBarsVisible = fmScrollBarsBoth
End Sub